home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #6
/
utv1n6s2.d64
/
hughes' ware
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
3KB
|
94 lines
10 print"[147][155]"chr$(8)chr$(14):poke53280,0:poke53281,0
20 gosub1000
30 gosub1300
35 get k$: if k$<>chr$(13) then 35
40 gosub1400
45 get k$: if k$<>chr$(13) then 45
50 gosub1500
55 get k$: if k$<>chr$(13) then 55
60 gosub1600
65 get k$: if k$<>chr$(13) then 65
70 gosub1700
75 get k$: if k$<>chr$(13) then 75
99 sys(8*4096)+4
1000 print"";
1010 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1020 print"[221][153] [155][221]";
1030 print"[221][153] [211]oftware from [208]hilip [200]ughes [155][221]";
1040 print"[221][153] [155][221]";
1050 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
1060 gosub1200
1065 print"";
1070 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
1075 print"[221][153] [155][221]";
1080 rem print"[221][153] [198]or more information or to order: [155][221]";
1090 print"[221][153] [208]hilip [200]ughes [211]oftware [155][221]";
1100 print"[221][153] 11910 [212]horoughbred #110 [155][221]";
1110 print"[221][153] [200]ouston, [212][216] 77065 [155][221]";
1114 print"[221][153] (713) 955-9084 [155][221]";
1115 print"[221][153] [155][221]";
1120 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157]"chr$(148)"[192]";
1125 print"";
1130 return
1200 print"";
1205 forx=1to12
1210 print"[155][221][159] [155][221][159][157]"chr$(148)" "
1220 next
1225 print"";
1230 return
1300 printspc(12)"[159][215]ord [205]aster 128"
1310 printspc(5)"[193]n easy-to-use yet powerful word"
1320 print"processor for the [195]128, capable of"
1330 print"providing professional documents for"
1340 print"home and business. [215]ord [205]aster has"
1360 print"over 60 features, including full"
1370 print"screen editing, search and replace,"
1380 printspc(7)"[208]ress [210][197][212][213][210][206] [159] to [195]ontinue";
1390 return
1400 gosub 2000
1410 print"[159]block copy and move, underlining,"
1420 print"bold face type, subscripts and"
1430 print"superscripts, plus many others."
1440 printspc(5)"[201]f you are tired of hundred page"
1450 print"manuals, this word processor is for"
1460 print"you. [215]ord [205]aster 128, only $9.95 [159]"
1470 print"plus $2.00 for shipping."
1480 printspc(7)"[208]ress [210][197][212][213][210][206] [159] to [195]ontinue";
1490 return
1500 gosub2000
1510 printspc(13)"[159][215]ord[205]aster 64"
1520 printspc(5)"[193] simple yet easy-to-use word"
1530 print"processor for the [195]64, providing"
1540 print"full screen editing, search and"
1550 print"replace, insert and delete, plus"
1560 print"many, many more. [215]ord[205]aster 64"
1570 print"is also the only word processor that"
1580 printspc(7)"[208]ress [210][197][212][213][210][206] [159] to [195]ontinue";
1590 return
1600 gosub2000
1610 print"[159]is able to work with [205]ike [203]onshak's"
1620 print" [196]atafile 64 [159]."
1630 printspc(5)"[215]ord[205]aster 64 has the ability"
1640 print"to merge up to 25 different fields"
1650 print"of information into any document"
1660 print"and at any location within the"
1670 print"document. [201]ts merging capabilities"
1680 printspc(7)"[208]ress [210][197][212][213][210][206] [159] to [195]ontinue";
1690 return
1700 gosub2000
1710 print"[159]are easy and very powerful. [211]ince"
1720 print"other support programs are in"
1730 print"existence, it could also merge"
1740 print"information from other databases"
1750 print"such as [196]atamanager or [208]ocketfile."
1760 print"[215]ord[205]aster 64, for only $19.95 [159]"
1770 print"plus $2.00 for shipping."
1780 printspc(8)"[208]ress [210][197][212][213][210][206] [159] to [213]p[212]ime";
1790 return
2000 print"";
2010 forx=1to12
2020 print"[159] [155]"
2030 next
2040 print"";
2050 return